home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SOUND.SWG / 0049_Sound-NoSound (BASM).pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  627b  |  43 lines
  1.  
  2. Uses CRT;
  3.  
  4.   Procedure Sound (Hertz : Word);Assembler;
  5.   Asm
  6.     Mov  Bx,SP
  7.     Mov  Bx,&Hertz
  8.     Mov  Ax,34DDh
  9.     Mov  Dx,0012h
  10.     CMP  Dx,Bx
  11.     JNB  @J1
  12.     Div  Bx
  13.     Mov  Bx,Ax
  14.     In   Al,61h
  15.     Test Al,03h
  16.     JNZ  @J2
  17.     OR   Al,03h
  18.     OUT  61h,Al
  19.     Mov  Al,-4Ah
  20.     OUT  43h,Al
  21.    @J2:
  22.     Mov  Al,Bl
  23.     OUT  42h,Al
  24.     Mov  Al,Bh
  25.     Out  42h,Al
  26.    @J1:
  27.   End; {Sound}
  28.  
  29.   Procedure NoSound;Assembler;
  30.   Asm
  31.     IN  AL,61h
  32.     AND AL,0FCh
  33.     OUT 61h,AL
  34.   End;
  35.  
  36. Begin
  37.  
  38.       SOUND (150);
  39.       DELAY (100);
  40.       SOUND (400);
  41.       DELAY (100);
  42.       NOSOUND;
  43. END.